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A LESSON IN ECONOMICS A failure to 
provide adequate funding has meant that 
initiatives to get computers into schools are 
being seriously impeded. We look at the 
problems facing teachers 





THE INKING MAN’S MACHINE The 
Penman Plotter, a device for the BBC Micro, 
is capable of functioning as a graphics 
plotter, turtle or mouse 





main methods of organisation of a database: 
relational, — and network systems 
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STRUCTURAL LINGUISTICS This week 
we look at some mechanisms for structuring 
PASCAL programs. Our discussion takes in 

such facets as ‘Scope’ and ‘parameter passing’ 






FROM OBJECT CODE TO OPERATION 
A weekly glossary of computing terms 


ALONE ON A WIDE WIDE SEA We add 
a poetic touch to the coding of the module 
dealing with the minor contingencies which 
the crew of our 16th century trading ship 
may encounter 






LINES OF COMMUNICATION We 
complete our look at the Commodore 64 
OS’s control of input and output, and 
provide a bi-directional communications 
program 


AT ARM’S LENGTH We design the first 
piece of software for the robot arm we 
completed last week 


REFERENCE CARD The conclusion of our ° 


comprehensive list of BAsic ROM routines 
for the BBC Micro 








GOOD RELATIONS We consider the three | 
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Teachers’ Pets 


oe -funded su 

published in January 1985 by 

the BBC Educational 

Broadcasting Services Research 

Unit. One surprising feature of 

the results i is the continued 

presence of the old Commodore — 

Pet series and the Sinclair ZX81, 

both of which have limited — 

versions of BASIC andlackthe  -. 
colour and sound facilities that . 

can be so useful in the 20 30 40 50 60 70 80 
classroom ~ 
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Pie In The a 
This pie chart clearly shows that 
despite government attempts to 

_ improve the pupil/micro ratio in’ 
British schools, more than one 
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Tree Surgery 
Whereas a ‘relational’ DBM 
stores information in tabular 
form, a ‘hierarchical’ DBM 
organises its data in ‘tree’ form. 
In the example shown, the 
single category ‘medicine’ holds 
pointers to the different types of 
medicine available, each of 
which will hold pointers to the 
different brand names, and so 
on. Hierarchical DBMs can be 
_ very efficient in their use of 
memory, but are more 
complicated in structure, 
than their relational 
counterparts 


| 
3 
@\ WY 
a 4 







GOOD 


Da 

micros generally incorporate ‘relational 
organisation’ methods as a means of 
arranging the input data. We look at the 
structure and functioning of this type of 
system, as well as its two alternatives — 





are of the type known as ‘relational’ database 
management systems. At its simplest, this means 


-that each record in a DBM file takes the form of a 


table, made up of rows and columns, after the 
fashion of a spreadsheet. The various ways in 
which the information can be presented might 
suggest a more complex structure, but it is 
basically nothing more than a straightforward 


stock - cost 


1164 THE HOME COMPUTER ADVANCED COURSE 





table or grid. The database is organised in much 
the same way as you might yourself put the 
information down on paper. Each record is 
structurally the same and each field within the 
record is of a fixed length. 

The term ‘relational’ comes from the fact that 


each ‘row’ in the database is clearly related, in a 


fixed and rigid way, to each ‘column’. This is not a 
very flexible way of organising data, but it does 
make for relatively simple database manager 
programs. Because home computers — even the 
new 16-bit machines with 128 Kbytes of memory 
or more — have comparatively small memories, 
slow processing speeds, and limited data storage 
capacities, the restrictions of a relational system 
are part of the price that must be paid for 
combining affordable computing with database 
management. 

An altogether different approach to this tabular 
organisation of data is to order it in a hierarchical 
form. We can think of the data being organised as 
if it were a tree, with each branch having sub- 
branches, the sub-branches having twigs, even 
leaves. To illustrate this, we'll create a database of 
the stock in a newsagent’s shop. First, we'll present 
it in a relational way, then show how it would be 
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When represented hierarchically, this newsagent’s 
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organised hierarchically. 


stock database could look like this: 
“CATEGORY 
BRAND 


SIZE 


| | QUANTITY . 


The record, instead of being organised into fields, 
is organised as ‘segments’ of data, where each 
segment might contain more than one field. 
Organised hierarchically, instead of relationally, 
the entries corresponding to CIGARETTE in the 
relational database would look like this: 


——| CIGARETTE . 
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EM BASSY 
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When it 1s eae in as. way, each item of 
information can clearly be seen as being either 
superior or subordinate to another item of data. 
All that is required is a ‘pointer’ from one data 
segment to another. In this example, we need only 
one CIGARETTE segment, with pointers to the 
various types of cigarette held in stock, and further 
pointers to the sizes, cost, price and so on. 
Suppose the newsagent has just one hundred 
‘categories’ of stock, but a thousand lines on sale; 
with a relational database, one thousand records 
would be required — one for each line. With a 
hierarchical database, only one hundred segments 
would be needed to cover the entire stock. It saves 
a lot of duplication but makes the database much 
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CATEGORY 2 


more complicated structurally. 

There is a further type of database organisation 
known as the CODASYL or network system, a 
standard database organisation specified by the 
database task group of the Conference on Data 
Systems Languages — hence CODASYL. The 
problem with a hierarchical database is that the 
data can only be organised to flow in one 
‘direction’; to use the tree analogy, one branch 
cannot be attached to two trunks. But, to return to 


our newsagent, 


EMBASSY PANATELLAS, 


for 


example, could be a ‘branch’ of both EMBASSY and 
CIGARS. The problem particularly comes to the 
fore whenever a single “component can have more 
than one ‘maker’. If you sell auto spares, a single 
‘big end linking gasket’ for a BL Marina could be 
made by British Leyland, BL Bargain Parts Ltd, or 
Taiwan Carbits Corporation. As we can see, the 
relationship between goods supplied and parts © 
suppliers can become very complicated. 

In the CODASYL system, a network of sets is 


used in which each set consists of a collection of 


records. Unlike a record in a relational database 
system, the record length need not be fixed, and 
any record can belong to more than one set. The 
CODASYL system allows a set to consist of only 


one record, and a record cannot belong to more 


than one occurrence of the same set type. 
Structures of the following type are therefore not 


allowed: 
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This is a serious limitation. Although we might not 
have CIGARETTEs, MAGAZINEs and DRINKs all with a 
brand name of, say, FABULAN, it is easy to conceive 
of a situation where a company called Supercars 
Ltd. could be part of a structure like: 


-{ BRITISH . 
- | tvand § | bovuscars 


| TAIWAN 
ue His 


= SUPERCARS LTO 





Although hierarchical and CODASYL databases 
are more flexible than relational ones, they are 


more complex and really need the power of 


mainframe or minicomputers. Home computers 
almost invariably use relational systems. The 
commonest problem to arise from this limitation is 
in situations where, for example, you have an. 
inventory of parts (or books, or other goods) that 
you sell, and each part (book, etc.) has more than 


one supplier. Therefore, you need a record of 


parts, and a linked set of records for related 
suppliers for each part. Multi-file DBMs allow 
more than one file to be open at a time, and for an 
active file to refer to a subsidiary file. 
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Entering Parawedge 

~ We include an Assembly code 
listing for Parawedge, which can 
be typed in and assembled 
using anassembler. 
Alternatively, the program can 
be entered as a series of DATA 
statements by typing in and 
running the BASIC loader code 


LINES OF 


COMMUNICATION 
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In the previous instalment, we inspected 
each of the Commodore 64’s I/O ports — 
right down to the function of the last pin 
connection — and looked at how the OS 
controlled RS232. Now we can consider 
how the two 6526 CIA chips control I/O, 
with specific reference to the program 
Parawedge, which is designed to send or 
receive a specified block of memory through 
the user port. 





Interface Adaptor) chips, which specifically 
handle communications with the outside world. 
These aren't the only chips with input and output 
capability, however; the 6510 and video chips both 
handle aspects of I/O as well. A 6526 chip has two 
eight-bit data ports, both of which have 
individually programmable lines. The chip is 
capable of eight- or 16-bit communication, and 
has two linkable 16-bit timers. In addition, it has 
an eight-bit shift register for serial 
communication, and, as we saw in the first article 
in this series (see page 1139), a 24-hour 
programmable ‘time of day’ clock. 

It also has two specific handshaking lines — PC 
and Flag. PC will go low for one cycle after data is 
written to port B of the 6526, and can be used to 
indicate ‘data ready’ to an external device. The 
Flag line may be used as a control input from 
another device. This can be used to set the Flag bit 
in the interrupt register, and — if so enabled — 
cause an NMI interrupt to the 6510 processor. 

On the Commodore 64, the two 6526 chips 
handle different aspects of I/O: one of these (CIA 
#1, with base address at SDC00) is devoted to the 
keyboard and the joysticks, and the other (CIA 
#2, with base address at SDD00) controls data on 


_ the serial and user ports. The video chip handles 


I/O to the monitor, and the cassette port is 
handled directly by the 6510. 

The Parawedge program we give here clearly 
illustrates the steps necessary to program the 6526 
directly for I/O. The routine is an NMI wedge that 
uses the Flag line. It is designed to send a specified 
block of memory out of the user port as parallel 
data, or, alternatively, receive eight-bit parallel 
data until a specified block of memory is full. Since 
this is wedge code (see page 1139) it will clock data 
in or out on NMls, while leaving the machine free 
to carry out other tasks the rest of the time. The 
only snag is that if the data rate becomes too high 
the Commodore 64 will begin to spend all its time 
doing NMI service routines, and that could be 
extremely awkward. 
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Parawedge allows the Commodore 64 to set up 


eight-bit parallel two-way communications with 


an external device — such as another computer or 
a parallel printer — through the user port. The pins 
of the user port from PBO to PB7 are used for data 
transfer; the Flag 2 pin is used as the handshaking 
input; PA2 signals a ‘ready for data’ condition and 
PC2 signals a ‘data valid’ condition. To use the 
program, you must first define an area of RAM 
from which you wish to send outgoing data, or into 
which you wish to receive incoming data. This is 
done by passing the start and end addresses (in 
lo-byte/hi-byte form) to the program by POKEing 
them into the four locations from 50768 to 50771. 

Location 50772 is used to indicate whether the 
program is to output or input data. POKEing a one 
into this location sets the program up for output; 
POKEing a zero sets the program to input mode. 
After having set up these parameters the wedge 
code 1s started by SYS 50775. Because the program 
is interrupt-driven, it will run in the background, 
sending or receiving data, while a BASIC program 1s 
typed in or run in the foreground. 
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The Object At Hand 
The Apple Macintosh was one 
of the first micros to put 
object-oriented programming 
into practice. Instead of having 
to issue a Series of commands 
to the computer to perform an 
action, the user merely moves a 
cursor (via a hand-held mouse) 
to the appropriate icon, and 
presses a button on the mouse. 
The computer's operating 
system then carries out the 
- command without the need for 
any further instructions 


OBJECT CODE 

This is the output code from a compiler (see page 
308). When the edited program file (known as the 
source code) is sent to the compiler, it will translate 
the high-level language in which the program has 
been written into a low-level language — for 
example, Assembly language. This low-level 
version of the program is the object code and it 1s 
this version that will be executed when the 
program is RUN. The advantage of an object 
program over one that needs interpreting is that 
the former, having already been translated into a 
low-level language, will run faster than, say, BASIC, 
which must be translated line by line into machine 
code before it is executed. Note, however, that 
compiled object code is not as efficient as a 
program written purely in machine code. 


OBJECT-ORIENTED 
PROGRAMMING 


Typically, a program consists of data and the 


operations, functions and procedures that are used 
to manipulate it. But in object-oriented 
programming, the data is regarded as objects, and 
the functions as messages. Whereas we normally 
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specify within a program the steps required to 


manipulate the data, in object-oriented 
programming we merely specify, via the message, 
what we want to happen to the data. The 
computer then decides how best to carry out the 
message. 


OCTAL NOTATION 


This is a form of numeric notation set to base eight. 
Thus, in octal notation, numbers can be in the 
range of zero to seven. This system of notation was 
popular with older four-bit computers, since the 
whole range of numbers could be contained 
within three-bit binary patterns (111 in binary 
being equivalent to seven in octal), and octal 10 in 
four bits. However, with the advent of eight-bit 
microprocessor-based computers, octal notation 
has generally been superceded for most 
applications by hexadecimal (base 16) notation. 


ONE’S COMPLEMENT 


One’s complement is an intermediary stage in 
producing the ‘two’s complement’ (see page 328) 
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method of binary arithmetic. In _ one’s 
complement, we take an eight-bit binary number 
and substitute the ones for zeros and vice versa (in 
effect, performing a NOT operation on the 
number). Thus, binary 00010011 (decimal 19) 
becomes 11101100. By looking at this binary 
pattern using the convention of signed binary 
numbers, in which the leftmost bit is taken to refer 
to the ‘sign’ of this number, the fact that the 
leftmost bit is now 1 will indicate to the computer 
that the binary pattern is a negative number. The 
machine will then, using the one’s complement 
system, regard the bit pattern as decimal -19. 


OPERAND 

Most commonly used when referring to machine 
code or Assembly language, an operand is one of 
two kinds of information (the other being 
operations such as adding and subtracting) held 
within the processor, on which logical or 
arithmetical operations contained in instructions 
may be performed. 


OPERATING SYSTEM 

The operating system is a vital component of the 
computer. Without it, all the processes and 
peripheral management would have to be 
performed manually. Essentially, an operating 
system is the software within the computer that 
provides an interface between you and the 
machine's electronics. There is a vast number of 
different operating systems on the market, but 
they fall into two main categories. There are the 
ROM-based systems that manufacturers build 
into their machines; these are what are usually 
found on most home computers. 

There are also other types of operating systems, 
most commonly held on disk, which are loaded 
into the computer on power-up. Examples of this 
type include CP/M and MS-DOS. These 
operating systems are mostly, although not 
exclusively, disk operating systems. The 
advantage of these is that they are ‘transportable, 
which means they can be transferred from one 
compatible machine to another. Because many 
different makes of machine use the same operating 
system, this, in theory, means that many software 
packages that run under the same operating 
system are equally portable. 


OPERATION 

An operation is a function that manipulates an 
input (or inputs) to produce an output (a result). 
The commonly used symbols in mathematics, 
such as +, — and X, represent arithmetical 
operations, but apart from these types, there are 
several other operations that are widely used in 
computing. Binary operations, for example, are 
derived from the simple arithmetic function in 
which two numbers are added together. Another 
commonly used type is the logical operation, 
which will take up to two operands to produce a 
Boolean result. Examples of logical operations are 
NAND, OR and NOT. 
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PENMAN PLOTIER/ HARDWARE 


THE INKING MANS 


MACHINE 


As an exercise in understanding the 
fundamentals of computer programming, 
the use of relatively inexpensive robotic 
devices, or turtles, has gained wide 
popularity, especially in schools. We look at 
the Penman Plotter, which incorporates a 
wider range of functions than most 
comparable devices. 


The large number of available interfaces on the 
BBC Micro, coupled with its wider adoption with 
educationalists, have combined to produce a wide 
number of educational peripherals for the 
machine. We have examined a large number of 
those devices that can be controlled by the BBC 
Micro, including such diverse machines as 
plotters, mice and floor robots. However, the 
Penman Plotter is a peripheral that can claim to be 
all three devices in one. 

The Penman Plotter package consists of a 
control unit, a mobile plotter, a power supply, an 
RS232 connecting cable and accompanying 
software. When it is not being used, the control 
unit and plotter fit together to form a single 
compact unit, measuring only 55 by 128 by 
335mm. To remove the plotter from its housing in 
the control unit, you need only to press the clip 
underneath it, slide the plotter out and unreel the 
connecting ribbon cable from inside the control 
unit itself. Once removed from its housing, the 
plotter reveals three sockets into which pens can be 
dropped, as well as a central well in the middle to 
accommodate another pen for _ turtle-type 
graphics. The 40mm-long felt tip pens, when 
dropped into their wells, are held above the paper 
by clips supported by springs. When it is 
commanded to draw, the spring will be pulled 
down by electromagnets attached to levers within, 
and the weight of the pen will force the top onto 
the paper. i 

There are three wheels on the underside of the 
device, two of which are drive wheels; the third is a 

‘small plastic wheel on a free running caster to 
provide balance. The drive wheels are made of 
metal and are surrounded by a coarse casing to 
provide additional friction when the plotter 1s 
moving on paper. In front of each is a light sensor, 
which detects the edge of the paper by registering 
the difference in brightness between the paper and 
the material on which it is placed. 

There are three electromagnets connected to 
levers inside the plotter, each of them controlling 
the raising and lowering of a pen onto the paper — 
the pair of standard electric motors attached to the 
drive wheels is adjacent. Ordinary electric motors 
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are used by the plotter rather than servo or stepper 
motors; these allow the device to plot smooth 
curves rather than ‘stepped’ curves. However, this 
requires the software control to be 
correspondingly more sophisticated because it has 
to be able to vary the voltages applied to the 
motors, rather than having to send just a series of 
pulses. 

Finally, there is a circuit board distributing the 
power and decoding the signals arriving from the 
control unit, and sending them to either the 
electromagnets or the motors. On each of the 
motor spindles, there is a stroboscopic disc that 
spins as the motor rotates, and on either side of the 
disc are light detecting diodes. As the stroboscopic 
disc spins, pulses of light appear on the diodes 
informing the logic within the circuit board on how 
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The Penman Plotter consists of 
a control module, connected to a 
computer via an RS232 
interface, and a moving turtle. 
The ribbon cable which joins the 
turtle to the control box is bi- 
directional, which means that 
the two devices can 
communicate with each other. 
Consequently, while the control 
box can send instructions to the . 
turtle to move to a position, the 
turtle can transmit its position 
back to the control circuitry. It is 
this feature of the system that 
allows the Penman Plotter to be 
used not only as a turtle and 
plotter but also as a ‘mouse’ 
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fast the motor is moving so that the machine can 
work out its position. This logic is particularly 
useful when the Penman is being used as a ‘mouse’ 
because the computer needs to know in which 
direction and how fast the wheels are turning in 
order to move the cursor on the screen. 

The printed circuit board inside the control unit 
has three main chips fitted. The board contains a 
6303 microprocessor (a development of the 
6800), which has the facility to configure a variety 
of operating systems. The processor incorporates 
a small ‘scratchpad’ RAM enabling it to store the 
plotter’s position. The second major chip on the 
board is a 6821 peripheral interface ROM. Also 
included on the circuit board is an EPROM 
containing the demonstration programs the 
Penman will perform if the RS232C cable is not 
connected. 

The Penman can be used in a variety of different 
modes. The ‘terminal emulator’ mode allows the 
device to be controlled directly from the keyboard. 
To enter it, you can either load the Pentlk program 
directly or, by using the Penman robot as a mouse, 
you can load the program from the main menu. 
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Ones the software 1S foadeck commands a are 2 sent to 
the control unit via the RS232 port in the form of 
ASCII codes. Typing PRINT ‘I’ will initialise the 
Penman. It will receive the signal and determine 
which of the three possible baud rates (300, 1200, 
9600) is being used. Once this is done the Penman 
can be put through its homing sequence by typing 
the command H. The robot will go through a 
sequence of movements that result in the device 
locating the bottom left-hand corner of the paper. 

From its starting position, the Penman will try to 
find the bottom of the page by using its light 
detecting sensors. Once the edge has been found, 
the device will make a 90° turn and perform the 
same action along the left of the page. As an aid in 
ensuring that the contrast between the paper and 
its background is sufficient to be detected by the 
plotter, Penman Products has thoughtfully 
included a piece of black paper onto which the 
drawing paper can be placed. After the Penman 
has ‘homed’, it sets its origin position 50mm from 
each edge of the paper (the distance from the front 
of the plotter to the central well). 

The Pentlk application can be run in either 
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direct mode (one command at a time), or 
commands can be strung together to form 
programs that can be LOADed, SAVEd or RUN. 
Movement in ‘terminal emulator’ mode is 
Cartesian — meaning that the paper on which the 
robot is placed is divided into a grid. When the 
plotter is given an instruction to go to (500, 500), it 
will move to those co-ordinates rather than move 
500 steps both ways. An A4 piece of paper has a 
maximum of 2,100 co-ordinates on the x axis and 
2,970 on the y axis. Commands can be entered in 
either absolute or relative mode, depending on 
~ whether the MOVE instruction is prefixed either by 
an A or R. Pens are selected with Loco-like 
commands such as U for pen up, D for pen down 
and P for pen select. 

The Penman Plotter can also produce turtle 
graphics movements in direct mode, although 
these are somewhat more complex than Cartesian 
movements, in that the length of the distance to be 
moved must be entered in hexadecimal notation 
and prefixed by a S. This is because the turtle 
graphics bypasses the normal software that 
interprets Cartesian movements and directly 
interrogates the bits in the controlling addresses 
within the computer. However, this is not the only 
way that you can perform turtle graphics with the 
Penman Plotter. The applications software 
provided contains programs allowing the robot to 
be controlled from Loco. | 


CONTROL IN ROBOTICS MODE 

A similar system of directly controlling the 
Penman from the user port’s data direction register 
is used in controlling the plotter in robotics mode. 
Each bit of the register controls a different aspect 
of the robot’s movements — bits 0 and 1 and bits 2 
and 3 control the right and left motors respectively. 
Bits 4 and 5 perform general motor functions, 
such as switching the motors on and off, while bit 6 
controls the up and down pen movement. The 
Penman also returns information about itself to 
the data register, such as positional errors and 


As The Wheel Turns 


To enable the Penman control 
~ system to ‘know’ the position 
| of the plotter, there must be 
/ some sort of feedback 
/ mechanism within the robot to. 
- count the number of ‘steps’ 
| that have been moved. To do 
| this the manufacturers have 
attached a thin metal disc 
around each of the wheel drive 
| shafts. The disc has a number 
| of thin slits cut from the centre 
towards the edge. 
| Mounted onthe circuit 
board is a device that emits 
and receives light. As the disc — 
spins, astroboscopic effectis 
produced between the emitter — 
| and receiver as a series of 
| pulses. The number of pulses 
| willbe calculated to determine 
the number of steps taken 
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whether or not the plotter has detected the edge of 
the page with its light sensors. 

Text commands can also be sent to the Penman 
Plotter. The range of commands and _ their 
applications are very similar to those used on the 
printer/plotters available on a wide number of 
home machines (see page 731). In fact, the shape 
of the printed characters from each _ bear 
remarkable similarity. Text can be varied in size 
from one to 127mm in height and can be printed in 
any one of four directions. A useful addition on 
the Penman Plotter that is not available on 
conventional printer/plotters is its ability to slant 
the text. 

The manual accompanying the plotter provides 
a full list of the available commands, with some 
explanation of how they are implemented, as well 
as an explanation of the hardware. It is perhaps a 
little advanced for the beginner, however, and it 
seems the Penman Plotter is aimed at those who 
already possess a thorough knowledge of. the 
workings of their computer. 

The Penman Plotter can be considered to be 
another advance in the development of an all 
purpose turtle/plotter. When used correctly, the 
resolution of the device begins to approach that of 
more conventional plotters used in commercial 
design studios. However, at the moment, the 
software prevents the device from being a viable 
business tool. The current suite of programs 
provided with the plotter is intended primarily as 


an educational tool. Users are expected to write - 


their own programs to run the plotter, thus 
learning the principles of robotics software. In 
contrast, a commercial user will not particularly 
care about the finer details of programming, but 
will require something that is easy to use. 

As an educational device, the Penman Plotter 
appears good value. Although not the cheapest 
device of its type on the market, the range of 
operation modes available makes the machine an 
attractive proposition to schools, where it can be 
used to demonstrate a variety of applications. 
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| water supply. The program generates a random 
LO FE C) number between 11 and 20 at line 5735 

. representing the number of barrels of collected 
water, which is added to the existing number by 

| line 5750. Finally, line 5755 calculates and prints 
the new estimate of ha | va upply is 
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how long the supply of meat will last. Finally, 2 
line 5685, the revised meat total is divided by the 
number of crew, members and their weekly 
requirement, producing a new estimate on the 
number of weeks the supply will last. 

The next event in the ON X GOTO statement is a 
rainstorm. Starting at line 5700, the crew manage 
to catch some rain in barrels and replenish their 
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| - 999, there is no medicine, and so this contingency 
is ignored. If there is medicine aboard, line 5925 
| halves the amount; since bottles do not break by 
halves, however, it takes the integer result. The 
rogram then prints a message informing the 
medicine remain. 
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circumstancés, the program. es the “albatross” meat i h fovision array, PA(3);is is increased by 
S| subroutine; * which starts at line 6050. Af eos andt the player is told the new total. 

=) Sighting an albatross, rings: _good- 4gde Ke ~The Shoot ofthe albatross in Coleridge’s 
= variable, AS, is: set to. iy Vat] = 60555. listing pis signalled by an interruption from the 
a 3 5: §- bee eS W Pe dv wedding guest: 


if a. good tu y The God save thee, ancient Mariner! 
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running short of meat, by determining if the Nah iy Groucbou 
amount of meat remaining is equal to, or greater + chews ae abe 
than, the weekly requirements of the crew 
multiplied by the remaining journey time. If A similar warning is given to the player in our 
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game. In line 6162, BS is set to ‘Y’. This is the bad _ luck will be revealed later in the course. The player 
uck factor, which more than negates the goodluck __ will not be informed of the reason, but factors will 
brought in line 6055. The precise nature of this be changed to hinder the ship’s progress. 
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In the last instalment of Workshop, we 
completed the assembly of the robot arm. 
We can now design the software that will 
control the arm movements using the BBC 
Micro, Commodore 64 and the Sinclair 
Spectrum. In this instalment, we focus our 
attention on the BBC Micro. 











The four motors that move the arm are connected 
to and controlled by four data lines from the 
computer with which the arm is interfaced. In the 
case of the BBC Micro these four data lines 
emanate from the user port using pins DO to D3. 
Because servos rely on a continuous stream of 
pulses to tell them what angle to take up, they 
cannot be controlled from Basic alone but must be 
driven by a machine code wedge program, which 
sends a new set of signals to the motors every one 
sixtieth of a second using an interrupt. (The 
principles of this control method are given in more 
detail on pages 912 and 923.) The multiple servo 
control program given on page 925 can be used to 
test the operation of the arm directly from the 
keyboard, and though not very sophisticated, will 
test each motor independently. 

Once the wedge code is running in the 
background, it will then be possible to break out of 


the BAsic key-scanning program to place numbers 
directly into the locations that control the motor 
angles. The address of the first motor-angle 
memory location is angle; motor 0 is set using the 
value in this location. Location angle + 1 sets the 
position of motor 1, and so on. Remember that 
motor 0 controls movement from the waist, motor 
1 from the shoulder, motor 2 movement from the 
elbow, and motor 3 opens and closes the grab 
‘mechanism. If any angle is incremented or 
decremented by one unit, then the motors can 
easily follow. If large changes, such as 0 to 128, are 
introduced, then the motors may take a moment 
or two to react. Also, notice how the combined 
effects of inertia and sponginess in the arm make it 
stop with a judder, reminiscent of the robotic 
dance craze. 


PROGRAMMING MOVEMENT 
SEQUENCES 


Having tried out the arm using the simple control 
program, it becomes apparent that a more 
sophisticated program is needed. Deciding exactly 
how to program the arm, however, is probably the 
most difficult part of the whole operation. Many 
industrial robots are programmed by moving the 
grab manually through the sequence that it has to 
learn; the arm will automatically record key 
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— pick up and move an objectthe ~ 


positions in the sequence. Unfortunately, this 
method requires rather sophisticated pieces of 
hardware such as angular feedback sensors, which 
our robot does not possess. 

But even with sophisticated equipment, such as 
that used in industrial applications, the arm may 
be working in hazardous environments in which 
an operator cannot physically go to program the 
arm. Therefore, an alternative method is to control 
the arm remotely from the keyboard, sending it 
through a series of movements and saving key 
positions in the sequence by pressing another key, 
and recording the four motor angles that define 
each position in an array. The sequence may be 
replayed simply by stepping through the array of 


. Please Use :~ 


Picking Up The Pieces 

We started the robot arm project 
by considering a particular task 
that we wanted to perform: to 


size and weight of a cotton reel. 


The arm sequence programmer — 


allows us to program the arm to 
do this task, if necessary saving 
the movements onto a file that 
can be reloaded and replayed at 
any time 


af 


curso Keys i... for LAR & Ist fra Up/Down 


EZ cceasenseres for 2nd Ara Up/Down 
REC sresseeseres for Pincer movenent tpen/Close 
‘OH sasseeesreneee €0 Save Servo positions 

T versteseeveees €O Peturn to Nenu 


‘RE ace seep aeawaas Ove to saved position 


HEB scsessseves next and back count. E.. new Cae 
Tk d. srrseceeeere Inopease and decrease speed 





key positions with a suitable delay factor. 
Sequences can also be saved to or loaded from 
disk or tape by using a sequential file to hold the 
contents of the array. This is the method of control 
that we will use. 

The first stage in the design of our software is, 
therefore, to assign keys to control the various arm 
functions so that a sequence of movements can be 
‘taught’ to the arm by moving it remotely from the 
keyboard. The BBC Micro’s cursor keys can be re- 
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assigned to control the left/right movement of the 
main body and the up/down movement of the 
lower arm. The A and Z Keys will be used to move 
the upper arm up and down and the X and C keys 
to open and close the grab jaws. The I and D keys 
allow the speed of the arm to be increased or 
decreased, so that delicate manoeuvres can be 
performed slowly, while larger, sweeping 
movements are carried out quickly. The S key 
allows the current arm position to be stored in the 
key position array, and R returns the arm to the last 
stored position. The sequence can be stepped 
through to make changes — either forwards or 
backwards using the N and B keys, respectively; E 
controls movements to certain points within the 
sequence. By using these last three keys, any 
programmed sequence of positions can be edited. 
The procedures inform and program in the listing 
provide you with a list of the key functions as well 
as repeatedly scanning the keyboard for input. 

The other procedures, replay and save, allow the 
sequence held in the key positions array, R%/(,), to 
be replayed or saved to disk or tape, whilst loadfile 
re-assigns the values in R%(,) using values 
previously saved to a sequential file. Thus, taken as 
a whole, the program gives us a comprehensive 
method of programming, editing and replaying 
arm movement sequences. 


A SMOOTHER MOVEMENT 


The machine code interrupt-handling routine 
controls the servo motor angles by looking at four 
locations, starting at address angle. Each of these 
locations contains a value corresponding to the 
angle that each motor should take up. One of the 
reasons the original test program (see page 925) 
produces jerky movements is that the BASIC 
program POKEs values directly into these locations. 
Large changes in an angle produce a violent 
movement by the motor as it tries to attain the new 
position as quickly as possible. To make the arm 
move more smoothly, we should try to adjust the 
values in the four angle locations by small amounts 
only. For this reason, a second group of locations, 
starting at newpos%, is used to accept the angle 
changes from the BAsic program. A short machine 
code routine can then be added to the program to 
increase or decrease the values in the four angle 
locations (in steps of one unit) until they match the 
values in the corresponding newpos% location. 
The procedure moveservo simply calls the machine 
code program that does this. 

Introducing this new routine has an extra 
benefit. By inserting a delay loop within this piece 
of machine code, we can slow down or speed up 
the rate at which the motor moves from its old 
position to its new position, simply by altering the 
value that terminates the delay loop. Location &81 
holds this delay factor that can be altered from 
BASIC at the beginning of the procedure replay, 
allowing previously programmed movement 
sequences to be implemented at different speeds. 
The machine code for this new routine starts at line 
2000 in the given Iisting. 















































































































































































































































































































































































































































































































































ii@@ ENDPROC 


BBC Micro Arm Sequence Programmer 


1136 DEF PROCassembletime 
1140 REM £¥X RRR XE ERER EEK E EKER EKER RARER ER ES ASSET ESE 


1156 REM Set up the timer etc 
16 REM XS SRR RR EH SERRE REKRKES 116@ REM Kez ER xXK ERE SESS ERE EEE SHEER AE REE RRAR ERS TEE 
11 REM exe eRe RKERKH EKER HREXE : 1179 osbyte=&FFF4 
12 REM *# ae 1198 AM=B97 :XMekS2 1YKRRFF 
13 REM ** BBC ARM SEQUENCE ** 11°@ CALL osbyte:REM set up port B for output 
14 REM ¥* PROGRAMMER ¥* 1264 DIM puts? 
fo Ren ee xe 1218 DIM timer% 12 ,read% 12 
FO GET Bette ee ete eee ee 1220 xtimer=timer% MOD 256 
ns REM #RRHKHREREKEKKERKRHERERKE 1230 xtimer=timer% DIV 2546 
ba : 1249 xread=read% MOD 256 
eo CCE 125@ yread=read% DIM 254 
3@ PROCsetup 1268 PROCinitial 
4@ CLS:PRINT TABC5,6)"Would you like to ;: " 1278 FOR IM=angle TO angle+S:angle?Ilx=128:NExXT 
DO PRINT TABC25 10) "1 000... 0.0. Program new arm sequence" 1280 t=.@2 :REM sec between pulses 
6@ PRINT TABC25 1 25"2...0.... --Add moves to program" 1290 timew=&FFEFFFFF -(tx1@@) +1 
7@ PRINT TABC25,149"3......055. Replay a file" 1300 timer*{?4=&FF :REM load highest byte 
86 PRINT TABC25,16)"4..........Leaye Program" 1318 '‘timerv=timex  :REM set up timer, enable events 
90 GS=GETS:IF Ge="1" THEN count=@ 1326 FPROCstarttimer 
, 16@ IF Gt="1" OR GS="2" THEN PROCinform:PROCprogram:PROCrepl ay: PROCeave 1336 ENDPROC 
| 11@ IF G$="3" THEN PROC] oadfile:PROCrep] ay 1348 
126 IF G$="4" THEN CLS:PROCendtimer:END 1354 DEF PROCstarttimer 
136 GOTO 46 1366 #FK14,5 
he 1378 AX=4 :X4extimer s¥“=ytimer :CALL &FFFI 
158 1386 ENDPROC 
1660 DEF PRUCinform:CLS 1396 
é 17@ PRINTTABCS,5) "Please Use :- " 146@ DEF PROCendtimer 
186 PRINTTABC2@,7>"Cursor Keys wsseee for LAR & 1st Arm Up/Down" 1416 *FXK13,5 
196 PRINTTABC20)"A & 2 veveuneseees for 2nd Arm Up/Down" 142@ ENDPROC 
260 PRINTTABC202"X & C .sceae seers. for Pincer movement Open/Clase" 1438 
Z10 PRINTTABC20)"°S" 2 ek cee ee . to save servo positions” 1449 
220 PRINTTABS 200""Q* .........5.006. to return to Menu” 1456 DEF PROCinitial 
236 PRINTTABtC 20)" "Ro ......0...0.55-6 move ta saved pasi tion" 1460 REM ¥¥ EHX E KK HRR RX HERE ERK EKER ERR ERR EKER ER KRKEREE 
29@ PRINTTABC2Z@)"N & B ..cueeeeeeee MEOXt and back count. E new count" 1470 REM Assemble the machine code 
258 PRINTTABC209"1 & D ...ceeceuees iMCrease and decrease speed" 1486 REM KHHRXEHX EHR ERK SEXES HH ER ERK RR KR KE KKH EER 
268 PRINTTABC2,2)"count="count" "s::FOR I%=8TOS:PRINTRAtcount,1%)3"  “ssNEXT: 1490 DIM space% 509 
PRINT 1508 FOR C=@ TO 3 STEP 2 
27@ ENDPROC 1516 zeropage=&7@ :REM free for users 
288 1526 portb=&FE66 :osword=&FFF1 
2976 1536 PA=spacen 
368 DEF PROCprogram:?&81=1 154@ angle=P% :P“=P%+8 +:REM potentially 8 motors 
31@ REM re-assign cursor move keys 1550 table=P% :P¥=PXK+256 :REM 256 possible pulse lengths 
320 *FX4,1 1560 FORI%=table TO table+&1@@:?1IX“=&FF:NEXT 
336 Dx=2 1576 lowtablex=table MOD 254 
34@ REPEAT :REM scan Keys 1586 hightable“=table DIV 256 
35@ IF INKEY¢-38) THEN DX=DX+1 :REM "I" 159@ ?zeropage=lowtable% :zeropage?1l=hightabl ex 
340 IF INKEY<-S19THEN DxX=DX-1 :IF DX<1 THEN DxX=1 :REM "D" 1600 [OPT C 
38@ IF INKEY(-26) THEN newposx%?@=(newposx?8)+DX: REM "LEFT ARROW" servo & rig 1618 .eventhandler 
ne 1628 PHP:PHA:TYA:PHA:TXA:PHA 
398 IF INKEY¢-122)THEN newpos*?@=(newpos%?6)-DX:REM "RIGHT ARROW" servo UYU lef 1630 LDA #&04 
‘ 164@ LDX #xtimer 
40@ IF INKEYC-S8. THEN newpos“?l=(newposx?1)+DX:REM “UP ARROW" servo 1 up 1658 LDY Hytimer 
41@ IF INKEY(-42> THEN newposx?l=(newpos%?1)-DxX:REM "DOWN ARROW" servo 1 down 1668 JSR osword 
426 IF INKEY¢-66) THEN newpos“%?2=(newpos%?2)-DX:REM "A" servo 2 up 1678 LDY #&6 
436 IF INKEY<(-98) THEN newposx?2=(newpos“%?2)+DX:REM "Z" servo 2 down 1688 \Start pulse, for some motors it may be possible toa start 
446 IF INKEY<-67) THEN newposx?3=(newpos%?3)+DX*¥3:REM "X" serva 3 open jaw 169@ \before filling table and so reduce the wait loop below 
45@ IF INKEY¢-83> THEN newpos%?3=(newpos7z?3)-DX*¥3:REM "C" servo 3 clase jaw 1740 LDA #&FF :STA portb 
460 IF INKEY¢(-52) THEN FOR IZ4=6TOS:newpos“?14=RAC count, 14) :NEXT :REM “R" rep] 1718 \fill table with exceptions 
ay position 1726 LDX #&7 :LDA #H&FF :CLO \set up bit pattern 
470 IF INKEY<-S6) THEN count=countt+1liIF count>maxcount THEN count=6@ 1730 .exceptions 
| 486 IF INKEY¢-1@1)THEN count=count-1l:IF count<@ THEN count=maxcount 1740 ROR A :PHA bit pattern : 
49@ IF INKEY*-35> THEN PRINTTAB(1@,26)"GIVE VALUE FOR count ";:INPUT count :R 1750 LDY angle,X \get offset corresponding to angle of motor & 
EM "E” keyin new count 1746 AND <zeropage),Y¥ \Keep existing bit pattern 
S@@ IF INKEY<-82) THEN FOR I”=@ TO Noservoesx:RAC count, 1A) =newposKr?I“:NEXT :cou 177@ STA (zeropage),Y \but modified for motor xX 
nt=count+i ;:;REM “S" save position at current caunt 1788 PLA :DEX 
51@ IF count>lastmaxc THEN |lastmaxc=count 1790 BPL exceptions 
528 IF olde<>count THEN PRINTTABC2,2)"count="count" “;:FOR IM=@TOS:PRINTR&%¢c 1888 \table is now loaded, fill in some time 
Cunt, tae NEXT SPRINT: 1818 LDY #&48 
938 oldc=count 1820 .wait DEY 
546 FOR I4#=6@ TO S:1F newposxX?14>266 THEN newposx~?I17=2080 1838 BNE wait 
55@ IF newposa?l4A<1@THEN newpos“?I4=14 1848 LDA #&FF Sad] pulses on 
568 NEXT 185¢@ LDY #&®8 


576 PROCmoveserva 
58@ GS=INKEYS¢1>:UNTIL G#="Q" GR count>maxcount 
S?@ *FX4,8 


-loop AND ‘zeropage),y¥ “but mask off with each table 
STA portb \element in turn 


INY 
4668 ENDPROC BNE laop 
$14 LDX #&?7 :LDA #&FE 
526 »clear 
638 DEF PROCrepl ay LDY angle,X ‘clear all the exceptions again 
4646 REPEAT 


. ey ii STA Czeropage) ,Y 
458 PRINTTABC11,23) "Would you like a replay af movements ? <¥/N> R to repeat 


664 GS=GETS 

67@ UNTIL GG="Y¥" OR GS="N" OR GS="R" 

486 IF G="N" THEN ENDPROC 

S90 IF GS<>"R" THEN INPUTTABC11,22) "What delay period between response ‘1 to 
P55) then <return>":divArlF dly4>255 OR dixe<] GOTO 676 

74@ P&El=dl ya“ 

71i@ FOR PosNo=8 TO lastmaxc:PRINTTAB(1?,2)"Noa. of sequential positian = 


DEX 

BPL clear 

“Nall pulses should now be tinished 
PLA: TAX :PLA: TAY :PLA:PLP 

RTS 


wu viuifins My 
\ ee 











| 1 * 4 
"sPosNo:" “:FOR servo%=8 TO Noservoes%:inewpos%?ser vo“=R%(PasNo, servo%) :NEXTsPRO oo ee men cece pects Meee 
EmoweservorNEXxT LDxX #8 
726 GOTOé6468 LDY #68 
73@ »Loopl : 
74u LDA newposs,x new position for servo x 
& You DEF PROCmoveservo : : CMP angle, is old position the same? 
7408 CA&LLmoveseryva +:REM the machine code version BEG moved if = then do nathing 
820 ENDPROC BCS add SOP then add 
Sau DEC angle, “\ else take one away 
831 JMP incrementx 
84@ DEF FROCSsayve:CLs 5 -add 
@5@ PRINT TABC15,1@)"Would you like to save the sequence on file 7 YH Hale 6 INC ceale x 
vi ET#<2:"¥" THEN ENGPROC : ee : UMP increment 
B4@ INPUT TABCLS,12)"Please name the File to save MefileS “oti let". +f le mooes 
= INY 
Sra PROCendtimer increment 
294 <=ORPENOUT fi le$:PRINT#HX,]astmaxc:FOR A=B TO lastmaxc: FOR B=@ 70 Hoservoec” Ihbd = CPX #4 
:PRINT#S ,RMCA,B? NEXT SNEXT BNE Loapi “% have i checked all 4 servos? 
Soe CLOSER. JSR waitmotarse 
SHB PROCstarttimer CPY #4 
Sia ENDPROAC BNE Loape continue if not all finished 
o2e RES “\ got this far then all servos are in correct pos 
eae 
$4a@ DEF PROCloadfile:CLS oe 
95@ INPUT TABCI5,18)"Please name the File ta load Hitiletifilet= 0. tf! lee ye imc bare 
S56 PROCendtimer ee ee TRA?IPHA:TYA:PHS 
970 “%=OPENIN file® :INFUTHX,count:lastmaxc=count:FOR A=@ TO count:FOR B=s TO HM LDY H&EF :LOx @@1 
Oseruces:INPUT#® Reta, Bo NEXT tNEXT waa ting 
78h aldc=t DEY NOR :NQP : 
Seq CLOSERX 2 BNE waiting * 8 €lock cycles loan, ie 1824 cycles all in 
{Heb FROCSetarttimer 2320 LOY #&FF 
1418 ENDPROC 2338 GEM 
{Hea 2348 BHE waiting 
1H 36 2356 PLA:TAY:FLA:TAX 
1448 DEF PROCsetup 2548 RTS 
1@58 count=8:Noservoess=S:REM NO OF MOTORS-1 237h 
1844 lastmaxc=@ :oldc=4 :dlyx=18 2290 ] 
1878 maxcount=168 : S oe 2370 NEAT 
1QS8 DIM R&étmaxcount,Moservoes%!,newpass 8 ,timer” 12 ,read” le 2480 ($&22b=eventhandler OR ('&F20 ANG &FFFFORGE) 
1498 PROCassembletime 2416 ENDPROC 
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STRUCTURAL 
LINGUISTICS 


ceca 





r own procedures 
and functions to supplement those already 
built into the language. This means, 
however, that we must fully understand the 
differences between the two in order to 
structure our programs efficiently. Here, we 
look at this aspect, as well as the important 





Before completing our survey of data structures in 
PASCAL, we'll take a look at some mechanisms for 


structuring programs. This is done by defining our | 


own procedures and functions to supplement 
those already built into the pAscAL language, such 
as the procedure write and the sqrt function. But 
before defining any of our own, let’s review why 
write is a procedure and not a function, and why 
sqrt is a function and not a procedure. When we 
say, for example: 


write (‘Hello!’) 


we expect the character string supplied as the 
single parameter to appear on the standard output 
file. In other words, write identifies a subprogram 
that knows how to send data in the form of a 
character stream to the output device (VDU). But 
what would the following ‘statement’ do? 


sqrt (256) 


The answer, of course, is that it would generate a 
compile-time error message — it isnt a legal 
statement. On the other hand: 


write (sqrt (256) 


would not only be legal, but it should produce 
something like 1.60000E+01 on the screen. Ask 
yourself why this is so, and why it does seem so 
inevitable and obvious — if you can appreciate the 
reasons, you will not be in any doubt as to the 
fundamental difference between a procedure and 
a function. 

The identifier write invokes a process that sends 
data to an output stream and is a procedure that 
can be called by its name. Another PASCAL 
procedure is page (F), which is used to start a new 
page on the text file F. The sqrt identifier, however, 
must always be supplied with a single numeric 
‘argument and it merely returns a result — the real 
number that is the square root of its argument. So 
the first distinction between procedures and 
functions is that there is no such thing as a function 
statement. Just as writing 16 in isolation means 
nothing (it’s only a value), expressions such as sqrt 
(X/3) or odd (N) have no meaning on their own. The 
function identifiers behave rather like variables 
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that are never initialised, but are computed every 
time their name is used in a program statement. 
The single value result that is returned is evaluated 
from an inspection of the current value (or values) 
of the argument(s) to the function — that is, the 
result is a function of the argument(s). 

Procedures, on the contrary, do not return a 
value and thus cannot be used in expressions. ‘This 
again is not surprising. The statement: 


N: = WriteLn 


clearly demonstrates its illegality, just as LET N = 
PRINT would in BAsic. 

Writing large programs in PASCAL is made much 
easier by having the ability to name our own 
procedures and functions and control their 
accessibility and the linkage between them. Just as 
with the naming of variables, the relative lack of 
restrictions on identifiers means that we can 
choose helpful and meaningful names for our own 
subprograms. Consider the following problem: 


PROGRAM Incomplete (input, output, datafile); 
{declarations . .} 
BEGIN 
Open (datafile); 
WHILE NOT EoF (datafile) DO 
BEGIN 
read (datafile, item): 
Process (item) 
END 
END. 


Even though we have not yet dealt with file 
handling, you should have no difficulty in 
understanding what the program does. In the 
declaration part of the program, we would declare 
one procedure to locate a file of data on backing 
storage and open it for reading (Open), and 
another to manipulate each item of data 
appropriately (Process). The program also uses 
two of pascaAl’s predefined identifiers. The 
procedure read (which we have used thus far to 
read textual input) can be used as shown to read 
any data, structured or not, from a file of the 
appropriate type. The Boolean function EoF (End 
of File) returns the value true when the last record 
of the file supplied as its argument has been read. 
Again, by omitting the file identifier, this defaults 
to the standard file input. For text files only, the 
function EoLn (End of Line) returns true when the 
last character on a line has been read. Let’s see how 
this applies when defining our own subprograms. 

In essence, there is little difference between 
programs, procedures and functions — they are all 
modules that may have their own local data 
descriptions and bodies of statements. The only 
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change in the syntax is for the heading. A program 
heading, as we have seen, consists of the reserved 
word PROGRAM, a user identifier naming the 
program and a parameter list identifying the files 
with which the program will communicate. The 
heading of a procedure substitutes the reversed 
word PROCEDURE and extends the ‘formal 
parameter list’ to include the type identifiers of 
each data parameter. So, for example: | 


PROCEDURE Lines (NumLines : integer); 
VAR 
N : integer; 
FOR N :=1 TO NumLines DO 
WriteLn 
END; 


The procedure’s END is followed by a semicolon, 


not a full stop as at the end ofa program. NumLines, - 


the formal parameter identifier, is passed the 
actual value in the calling statement: 


Lines (5) 


This admittedly trivial procedure is nonetheless 
useful if we frequently wish to leave several blank 
lines (five in this case) for clarity of output, and 
saves us (and the compiler) from having rather 
boring sequences of WriteLn statements separated 
by semicolons. This general purpose procedure 
will allow you to leave as many blank lines as you 
need, so that Lines(10) will produce 10 blank lines, 
Lines(20) gives 20 lines, and so on. 


SCOPE 

This example is also a good illustration of PASCAL’S 
security. The FOR loop control variable must 
always be declared as a true local variable. We 
could not have said, for instance: 


For NumLines := 1 TO NumLines DO... 


Although this would be acceptable in a main 


program, the loop security cannot be guaranteed if 
a loop controller is non-local, or ‘relatively global’. 
(For more information on ‘local’ and ‘global’ 
variables, refer to pages 593 and 688.) Have you 
ever spent hours debugging a BASIC program that 
contained a statement like: 


300 FORN=1 TOT 
400 GOSUB 2000 
500 NEXT N | 


only to find that a remote subroutine, perhaps 


called indirectly and conditionally, used N for 


some other purpose? PAscaL expressly forbids 
such uncontrolled behaviour, and helps save 
wasted development time. Any identifier declared 
within a block has a defined ‘region’ that extends 
throughout that block. However, its ‘scope’ (that 
part of the block from within which it is accessible) 
ony extends from the point of its declaration to the 
end of that block, and this may be limited further 
by redefinition. In the previous example, the N 
referred to within the procedure Lines is, naturally, 
the locally declared integer, and this declaration 
temporarily overrides any relatively global one 











throughout each activation of the procedure. 

Referring to the main program outline (Scope)in 
the example, the region of the global variables N 
and X is the whole of the program. The scope of X 1s 
from its declaration to the end of the program 
excluding anywhere within procedure A. This is 
because another X (SET OF char) is defined asatype | 
identifier and its region is the block of A. Similarly, 
within B, N refers to B’s formal parameter, not the 
global variable. 

Although the region of both A and B is the entire 
program, the scope of B only commences at its 
defining point, and so while you could use A in 
procedure B, B is invisible to A. This reinforces 
PASCAL’s trenchant logic: no program can be 
executed until it has been written! This also 
explains why the definitions and declarations must. 
be in the order CONST, TYPE, VAR, followed by 
procedure and function definitions ordered 
according to the structural requirements of the 
program. Many PASCAL compilers are ‘one-pass’ 
(they read the source code only once), and this 
would not be possible if this logical ordering were 
not insisted upon. 

The extra effort of having to declare data local 
to any procedure is amply repaid. Modularity 1s 
achieved by the passing of all data values as 
parameters to procedures, and although you may 
see PASCAL programs that use procedures without 
any parameter lists, accessing all data globally, this 
practice should be strictly avoided. In fact, it can 
be seen as one of PASCAL’s weaknesses insofar as it 
will permit this sort of abuse. Notice that, just as 
any reference to X within A means the type X, using 
N within B refers to its local formal parameter and 
the global integer N is temporarily inaccessible. 
Apart from the inherent security, this enables a 
team of programmers to work on a large project 
without having to worry about identifier clashes. 


THE HOME COMPUTER ADVANCED COURSE 1179 


HRA 





the calling 


mn 


ion and type. The mechanism for 


parameter value passing may be envisaged as 
the formal parameter identifier to 
fied 


ns) 

YO 

eae 

N 

Be 

oO 
rs — 
Z y 
=e oD 
us fam 
8 Be 
ESS Ss 

== 
3 acm 
aoa. es 
(aD 
dg 3 
SOS 
> OF 
= a 
a8 > 
3,7 2 
OUS -. 
ma 8S 
o Sie 
oO. ., Gia 
S238 
dea A 
0 Ve 
oo < 
yon s 
set 
g255 
Se 
2.235 
oe 
%¥=.25 
Aoo s 
Sony 
a 8-8 
of 2s 
Pa = = 
s Eo. 
ass 
2822 
+ = 
es 


ar 
= 
OQ 
oS 
co 
a 
esta 
=e 
© 
ray 
ae 
e 2 
ad 
o 
=? 
NM 
i 
O 
cD) 
se 
oS 
& 
MN 
om 
OY 
3 
== 
o 
> 
so) 
oy 
MN 
N 
oo 
(aot 
oO 
Wes 
+ 
oe 
Oo 
aS 
o © 
= 
gs 
O28 
<2 
@ od 


t statement upon’ 


= NI 
> 
< =< 
a 
2D ] 
2. 
Ss) + 
om = 
gE 8 
S 
5 = 
= ey 
ee 7 
of 8 
25) iy 
n JQ = 
aie = 
QF =< 
a 5 
3. @ 
Dr Sum cD) 
= 0 a 
i eee 
es o) 
we eS 
n a I "aH 
Bene 
oS §&. 
ES &§ 
oS . 
OS-S © 
See 
“oS meee 
> BOR 
i 
42a & 
Ss szu 
qo SD 
oS oF 
a= 
5 ae 
5D QO. 
Ege 
o oe 
iS | uals 
2326 
@®o 2®@ 


correct type 


figure out how we can possibly 


d this secure way of passing values, 
te a procedure to process some data when it is 


d to alter that data’s values. 


© 
= 
4 o 
Es 
Ss 
ep oD 
o yam cD) 
Sere 
dad 6 
aeoks 
2g 
~~ — 
~ S op 
HAE 
eee 
~~ nD 
ns & 
=e 
= <= 
> 
ees 
ae 
r= ie) 
2a5 
S i ~_ 
aa 2 
Q) iar 
BO 4 
g@eQ 
Oyy O 
20g 
Sag 
a5 4 
HD & 
5 a & 
SEE 
fae} 
OG 
53 
fp) ES 
eo Oo 
Zas 





1180 THE HOME COMPUTER ADVANCED COURSE 











Okenise line numbers... 
IN TIL statement routine... 
ISR function routine........... 


U statement routine... 
OS function routine................. 





In issue 61 we begin publishing the first of several instalments, in which we will provide full details 
of the Commodore 64’s memory 
map. This series is designed to 4 
run concurrently with the 
Machine Code course on 


the Commodore 64’s 
Operating system 
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